(format-decode): Don't change buffer's undo list.

diff --git a/lisp/format.el b/lisp/format.el
index dba7ecbff2acef78212bd3523a5109bc9ca768b9..c1919c24e13e955aa5c07da63b3f96e345dd8e22 100644 (file)
--- a/lisp/format.el
+++ b/lisp/format.el
@@ -248,7 +248,6 @@ For most purposes, consider using `format-decode-region' instead."
     (unwind-protect
        (progn
          ;; Don't record undo information for the decoding.
-         (setq buffer-undo-list t)
          
          (if (null format)
              ;; Figure out which format it is in, remember list in `format'.
@@ -286,8 +285,8 @@ For most purposes, consider using `format-decode-region' instead."
          (if visit-flag
              (setq buffer-file-format format)))
       
-      (set-buffer-modified-p mod)
-      (setq buffer-undo-list nil))
+      (set-buffer-modified-p mod))
+
       ;; Return new length of region
     (- end begin)))